﻿Imports System.Data
Imports System.Data.OleDb

Public Class frmRegUsuario

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim texto As String
        Dim comando As New OleDbCommand


        'Validacion de Campos vacíos
        If txtUsuario.Text = "" Then
            MsgBox("Debe esciribir un nombre de usuario valido")
            Exit Sub
        End If
        If txtNombre.Text = "" Then
            MsgBox("Debe esciribir un nombre valido")
            Exit Sub
        End If
        If txtApellido.Text = "" Then
            MsgBox("Debe esciribir un Apellido valido")
            Exit Sub
        End If

        If Not IsDate(txtFecha.Text) Then
            MsgBox("Debe esciribir Fecha Valida")
            Exit Sub
        End If
        If Not IsNumeric(txtEstatura.Text) Then
            MsgBox("Debe esciribir estatura Valida")
            Exit Sub
        End If
        If Not IsNumeric(txtPeso.Text) Then
            MsgBox("Debe esciribir un peso Valido")
            Exit Sub
        End If
        If txtClave.Text = "" Then
            MsgBox("Debe esciribir la clave valida")
            Exit Sub
        End If

        texto = "insert into usuarios (usuario, clave, desde, nombre, apellido, fecha_nac, estatura, peso) values ('"
        texto &= txtUsuario.Text & "', '"
        texto &= txtClave.Text & "', '"
        texto &= Now.ToShortDateString & "', '"
        texto &= txtNombre.Text & "', '"
        texto &= txtApellido.Text & "', '"
        texto &= txtFecha.Text & "', '"
        texto &= txtEstatura.Text & "', '"
        texto &= txtPeso.Text & "')"
        comando.CommandText = texto
        comando.Connection = Conexion
        Try
            comando.ExecuteNonQuery()
            MsgBox("usuario Agregado", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub


End Class